home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / batch / bat / fskel.bat < prev    next >
DOS Batch File  |  1984-03-07  |  2KB  |  91 lines
  1. bat * Generic Function Key Processing with Skeleton Program *
  2. bat * Note: to keep first line from appearing set screen to black on black
  3. bat -menu
  4. bat cls begtype
  5. \0F
  6.  
  7.                        (CENTER THE TITLE OF YOUR APPLICATION HERE)
  8.            
  9.  
  10.  
  11.  
  12.  
  13.                                    ╔═══╦═══╗ 
  14.                     Choice 1       ║\0AF1\0F ║\0AF2\0F ║    (undefined)
  15.                                    ╠═══╬═══╣ 
  16.                    (undefined)     ║\0AF3\0F ║\0AF4\0F ║    (undefined)
  17.                                    ╠═══╬═══╣ 
  18.                    (undefined)     ║\0AF5\0F ║\0AF6\0F ║    (undefined)
  19.                                    ╠═══╬═══╣ 
  20.                    (undefined)     ║\0AF7\0F ║\0AF8\0F ║    (undefined)
  21.                                    ╠═══╬═══╣ 
  22.                           Help     ║\0AF9\0F ║\0AF10\0F║    Quit
  23.                                    ╚═══╩═══╝ 
  24.           
  25.  
  26.                                   
  27. end
  28. bat inkey .          Please enter your selection  %1
  29. bat call -validate
  30. bat * F1 -> KEY13B  F2 -> KEY13C  F3 -> KEY13D  F4 -> KEY13E   F5 -> KEY13F
  31. bat * F6 -> KEY140  F7 -> KEY141  F4 -> KEY142  F9 -> KEY143  F10 -> KEY144
  32. bat goto -P%1
  33. bat goto -menu
  34.  
  35. bat -validate
  36. bat %0 = %1 $ 1 3
  37. bat if %0 <> KEY skip 2
  38. bat %0 = %1 $ 4 3
  39. bat if %0 > 13A if %0 < 145 return
  40. bat beep| inkey %1|goto -validate
  41.  
  42. bat -PKEY13B
  43. bat begtype
  44.  
  45.              Put in your processing for F1
  46.  
  47. end
  48. bat inkey Remove this pause in production.  Press any key to continue...
  49. bat goto -menu
  50. bat -PKEY13C
  51. bat goto -menu
  52. bat -PKEY13D
  53. bat goto -menu
  54. bat -PKEY13E
  55. bat goto -menu
  56. bat -PKEY13F
  57. bat goto -menu
  58. bat -PKEY140
  59. bat goto -menu
  60. bat -PKEY141
  61. bat goto -menu
  62. bat -PKEY142
  63. bat goto -menu
  64. bat -PKEY143
  65. bat cls begtype
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.     HELP SCREEN GOES HERE!!
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86. end
  87. bat inkey Remove this pause when in production.  Press any key to continue...
  88. bat goto -menu
  89. bat -PKEY144
  90. bat cls EXIT